home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / neumap3.zip / NUMP.ZP / MLP1.BAT < prev    next >
DOS Batch File  |  1994-08-06  |  5KB  |  230 lines
  1. :TOP
  2.  
  3. c:\neuron\batchm\Ben menuf c:\neuron\batchm\ML1.mnu
  4.  
  5. IF ERRORLEVEL 9  GOTO END
  6. IF ERRORLEVEL 8  GOTO help
  7. IF ERRORLEVEL 7  GOTO Util
  8. IF ERRORLEVEL 6  GOTO wate
  9. IF ERRORLEVEL 5  GOTO jinn
  10. IF ERRORLEVEL 4  GOTO Procs
  11. IF ERRORLEVEL 3  GOTO TMAP
  12. IF ERRORLEVEL 2  GOTO INT6   
  13. IF ERRORLEVEL 1  GOTO NENERP   
  14. IF ERRORLEVEL 0  GOTO END 
  15.  
  16.  
  17. :NENERP
  18.  
  19. c:\neuron\batchm\Ben menuF c:\neuron\batchm\nep.mnu
  20.  
  21. IF ERRORLEVEL 5  GOTO TOP
  22. IF ERRORLEVEL 4  GOTO nerhlp
  23. IF ERRORLEVEL 3  GOTO nert
  24. IF ERRORLEVEL 2  GOTO ner2   
  25. IF ERRORLEVEL 1  GOTO ner1   
  26. IF ERRORLEVEL 0  GOTO END 
  27.  
  28.  
  29.  
  30. :ner1
  31. c:\neuron\batchm\Ben cls blue
  32. IF NOT EXIST Nenp1.par  copy c:\neuron\batchm\Nenp1.par
  33. Edit Nenp1.par
  34. c:\neuron\batchm\Ben cls blue
  35. c:\neuron\Nenerp4<Nenp1.par 
  36. pause
  37. c:\neuron\batchm\Ben cls blue
  38. GOTO Nenerp
  39.  
  40. :ner2
  41. c:\neuron\batchm\Ben cls blue
  42. c:\neuron\Nenerp4
  43. pause
  44. c:\neuron\batchm\Ben cls blue
  45. GOTO Nenerp
  46.  
  47. :nert
  48. If Not EXIST Nerp4.out GOTO Nenerp
  49. c:\neuron\batchm\Ben list Nerp4.out Nenerp4~Output
  50. GOTO Nenerp
  51.  
  52.  
  53. :nerhlp
  54. c:\neuron\batchm\Ben list c:\neuron\batchm\nerm.hlp Backpropagation~Help
  55. GOTO NENERP
  56.  
  57.  
  58. GOTO TOP
  59.  
  60.  
  61. :INT6
  62.  
  63. c:\neuron\batchm\Ben MenuF c:\neuron\batchm\ini.mnu
  64. IF ERRORLEVEL 5  GOTO TOP
  65. IF ERRORLEVEL 4  GOTO inthlp
  66. IF ERRORLEVEL 3  GOTO int3   
  67. IF ERRORLEVEL 2  GOTO int2   
  68. IF ERRORLEVEL 1  GOTO int1   
  69. IF ERRORLEVEL 0  GOTO END 
  70.  
  71. :INT1
  72.  
  73. c:\neuron\batchm\Ben cls blue
  74. IF NOT EXIST Init61.par  copy c:\neuron\batchm\Init61.par
  75. Edit Init61.par
  76. c:\neuron\batchm\Ben cls blue
  77. c:\neuron\INIT6<Init61.par
  78. pause
  79. c:\neuron\batchm\Ben cls blue
  80. GOTO INT6
  81.  
  82. :INT2
  83. c:\neuron\batchm\Ben cls blue
  84. c:\neuron\INIT6
  85. pause
  86. c:\neuron\batchm\Ben cls blue
  87. GOTO INT6
  88.  
  89. :int3
  90. If Not EXIST Init6.out GOTO Int6
  91. c:\neuron\batchm\Ben list init6.out Init6~Output
  92. GOTO Int6
  93.  
  94.  
  95. :inthlp
  96. c:\neuron\batchm\Ben list c:\neuron\batchm\ini.hlp Fast~Training~Help
  97. GOTO INT6
  98.  
  99.  
  100.  
  101. :TMAP
  102.  
  103. c:\neuron\batchm\Ben menuf c:\neuron\batchm\mp.mnu
  104. IF ERRORLEVEL 5  GOTO TOP
  105. IF ERRORLEVEL 4  GOTO tmaphlp
  106. IF ERRORLEVEL 3  GOTO tmap3   
  107. IF ERRORLEVEL 2  GOTO tmap2   
  108. IF ERRORLEVEL 1  GOTO tmap1   
  109. IF ERRORLEVEL 0  GOTO END 
  110.  
  111. :Tmap1
  112.  
  113. c:\neuron\batchm\Ben cls blue
  114. IF NOT EXIST Tmpc21.par  copy c:\neuron\batchm\Tmpc21.par
  115. Edit Tmpc21.par
  116. c:\neuron\batchm\Ben cls blue
  117. c:\neuron\Tmapc2<Tmpc21.par
  118. pause
  119. c:\neuron\batchm\Ben cls blue
  120. GOTO TMAP
  121.  
  122. :tmap2
  123. c:\neuron\batchm\Ben cls blue
  124. c:\neuron\Tmapc2
  125. pause
  126. c:\neuron\batchm\Ben cls blue
  127. GOTO TMAP
  128.  
  129. :tmap3
  130. If Not EXIST tmapc2.out GOTO Tmap
  131. c:\neuron\batchm\Ben list tmapc2.out Tmapc2~Output
  132. GOTO tmap
  133.  
  134.  
  135. :tmaphlp
  136. c:\neuron\batchm\Ben list c:\neuron\batchm\tmpc.hlp Network~Analysis~Help
  137. GOTO TMAP
  138.  
  139. :Procs
  140.  
  141. c:\neuron\batchm\Ben menuF c:\neuron\batchm\prm.mnu
  142. IF ERRORLEVEL 5  GOTO TOP
  143. IF ERRORLEVEL 4  GOTO prochlp
  144. IF ERRORLEVEL 3  GOTO proc3   
  145. IF ERRORLEVEL 2  GOTO proc2   
  146. IF ERRORLEVEL 1  GOTO proc1   
  147. IF ERRORLEVEL 0  GOTO END 
  148.  
  149. :Proc1
  150.  
  151. c:\neuron\batchm\Ben cls blue
  152. IF NOT EXIST Prcm1.par  copy c:\neuron\batchm\Prcm1.par
  153. Edit Prcm1.par
  154. c:\neuron\batchm\Ben cls blue
  155. c:\neuron\Procm<Prcm1.par
  156. pause
  157. c:\neuron\batchm\Ben cls blue
  158. GOTO Procs
  159.  
  160. :Proc2
  161. c:\neuron\batchm\Ben cls blue
  162. c:\neuron\Procm
  163. pause
  164. c:\neuron\batchm\Ben cls blue
  165. GOTO Procs
  166.  
  167. :Proc3
  168. If Not EXIST Procm.out GOTO Procs
  169. c:\neuron\batchm\Ben list Procm.out Procm~Output
  170. GOTO Procs
  171.  
  172.  
  173. :Prochlp
  174. c:\neuron\batchm\Ben list c:\neuron\batchm\Prcm.hlp MLP~Processing~Help
  175. GOTO Procs
  176.  
  177.  
  178. :Jinn
  179. c:\neuron\batchm\Ben menuF c:\neuron\batchm\jinnm.mnu
  180. IF ERRORLEVEL 3  GOTO TOP
  181. IF ERRORLEVEL 2  GOTO jinhlp   
  182. IF ERRORLEVEL 1  GOTO jin1   
  183. IF ERRORLEVEL 0  GOTO END 
  184.  
  185. :jin1
  186. c:\neuron\batchm\Ben cls blue
  187. c:\neuron\Jinn
  188. c:\neuron\batchm\Ben cls blue
  189. GOTO Jinn
  190.  
  191. :jinhlp
  192. c:\neuron\batchm\Ben list c:\neuron\batchm\jinm.hlp Code~Generation~Help
  193. GOTO Jinn
  194.  
  195.  
  196. :Wate
  197. c:\neuron\batchm\Ben menuF c:\neuron\batchm\watem.mnu
  198. IF ERRORLEVEL 4  GOTO TOP
  199. IF ERRORLEVEL 3  GOTO watehlp   
  200. IF ERRORLEVEL 2  GOTO wate2   
  201. IF ERRORLEVEL 1  GOTO wate1   
  202. IF ERRORLEVEL 0  GOTO END 
  203.  
  204. :wate1
  205. c:\neuron\batchm\Ben cls blue
  206. c:\neuron\Watecon
  207. c:\neuron\batchm\Ben cls blue
  208. GOTO wate
  209.  
  210. :wate2
  211. If Not EXIST wate.out GOTO wate
  212. c:\neuron\batchm\Ben list wate.out Watecon~Output
  213. GOTO wate
  214.  
  215. :watehlp
  216. c:\neuron\batchm\Ben list c:\neuron\batchm\watm.hlp Weight~Conversion~Help
  217. GOTO wate
  218.  
  219. :Util
  220. call c:\neuron\batchm\Dirdel
  221. GOTO top
  222.  
  223. :Help
  224. c:\neuron\batchm\Ben list c:\neuron\batchm\mlmp.hlp MLP~Help
  225. GOTO Top
  226.  
  227.  
  228. :End
  229.  
  230.